home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48hor2
/
buport.s
< prev
next >
Wrap
Text File
|
1991-11-22
|
2KB
|
109 lines
* BUPORT 1.0 2nov91 phk@data.fls.dk
* ==========
*
* Backup port to remote computer.
*
* ARGS:
* real -- Port number
*
* RETURNS:
* <nothing>
*
* FUNCTION:
* recals all items in the port, and for each one constructs a new name
* stores the item in a LAM and uses SEND to transmit it to the remote
* computer under the new name. Builds a secondary to pull things back
* into the calculator.
*
* COPYLEFT:
* Feel free to use this any way you like, as long as you do give credit
* where credit is due.
*
ASSEMBLE
NIBASC /HPHP48-Z/
*
* UnDocumented entrypoints. Picked up from disassembly of Rev.E Firmware:
*
RclPort EQU #21922
LibNbr EQU #081ee
LibName EQU #081d9
xSEND EQU #21ef0
xKGET EQU #21f24
xSTO EQU #20ccd
x>>O EQU #23639
x>>I EQU #235FE
x-> EQU #234c1
xQU EQU #23654
xUNQU EQU #23679
xPURGE EQU #20EFE
xSF EQU #1C274
RPL
::
CK1NOLASTWD
CK&DISPATCH1
real
::
THIRTYFIVE TestSysFlag SWAP
THIRTYFIVE SetSysFlag
COERCE
DUP #>$ ".p_" SWAP&$ 1LAMBIND
RclPort
DUP ZERO 1GETABND
ROT
{ LAM guf NULLLAM NULLLAM } BIND
' :: x<< % -36 xSF x-> LAM port x<< ;
SWAP
ZERO_DO (DO)
::
SWAP
DUP ' LAM guf STO
::
CK&DISPATCH1
#8f ( Library )
::
DUP
LibName DROP ID>$
SEVEN SEVEN SUB$ ":" EQUAL ITE
::
LibName DROP ID>$
DUP " " ONE POS$ DUP#0= ITE
DROP
:: #1- ONE SWAP SUB$ ;
"l_" SWAP&$ ONE EIGHT SUB$ 2GETLAM &$
;
::
LibNbr DROP
#2710 #+ #>$ TWO FIVE SUB$
"l_" SWAP&$ ONE EIGHT SUB$ 2GETLAM &$
;
;
#9f ( Backup )
::
LibName DROP ID>$
"b_" SWAP&$ ONE EIGHT SUB$ 2GETLAM &$
;
;
DUP
' LAM guf SWAP TWO {}N ONE{}N xSEND
' ID tmpvar TWO {}N ONE{}N
' xKGET
' ID tmpvar
' LAM port
' xSTO
FIVE ::N &COMP
;
LOOP
' :: x>>I xQU ID tmpvar xUNQU xPURGE x>>O ; &COMP
' LAM guf STO
{ LAM guf }
THIRTYFIVE ClrSysFlag
"restore" 2GETLAM &$ >TCOMP ONE{}N xSEND
ABND
DROP
IT
:: THIRTYFIVE SetSysFlag ;
;
;